(help "To send speech with AmiPhone, you need an audio digitizer connected to your parallel port. Although it often isn't necessary, AmiPhone likes to know what digitizer it is using. If your digitizer model is not listed, please choose the Generic option.")
)
)
(select Digitizer
(set Digitizer "DSS8")
(set Digitizer "PERFECTSOUND")
(set Digitizer "AMAS")
(set Digitizer "TOCCATA")
(set Digitizer "SOUNDMAGIC")
(set Digitizer "GENERIC")
)
(tooltype
(dest "AmiPhone")
(settooltype "SAMPLER" Digitizer)
)
; do they want to set up AmiPhone to receive voice-mail?
(if (= 1 (askbool
(prompt "\n\nDo you wish to set up AmiPhone to receive voice mail?")
(help "AmiPhone is capable of receiving and storing voice messages while you are away from your computer. This takes some disk space though, so if you're tight on space, you might want to leave it disabled.")
(default 0)
(choices "Yes" "No")))
; answered yes
(
(set MessageDir
(askdir
(prompt "What directory would you like AmiPhone to keep the voice message files in? (NOTE: You should not keep any other files in this directory!)")
(help @askdir-help)
(default "AmiTCP:bin")))
(set MaxDirSize
(asknumber
(prompt "\n\nWhat should be the maximum possible size (in kilobytes) of this directory be? (Enter -1 for unlimited size)")
(help "By setting this value, you can guarantee that AmiPhoned will not let anyone fill up your hard drive. AmiPhoned counts the bytes in the voice mail directory on startup, and will reject messages if the directory size has reached the size you specify here.")
(default 500)
(range -1 1000000)))
; if a max size was set for the dir, use that as the max max file size as well
(if (> MaxDirSize -1)
(set MaxFileSize MaxDirSize)
(set MaxFileSize 1000000))
(set MaxFileSize
(asknumber
(prompt "\n\nWhat should the maximum possible size (in kilobytes) of each message be? (Enter -1 to impose no special limit on individual message size)")
(help "By setting this value, you can guarantee that no one message will fill up your entire allotment of message space.")
(default 100)
(range -1 MaxFileSize)))
(set AwayVar
(askstring
(prompt "\n\nAmiPhone uses the presence of an ENV: var to determine whether or not you're away. If the ENV: var is present, it takes a message, otherwise it puts up a requester for you. What ENV: var would you like AmiPhone to look for?")
(help "The ENV: var can be set manually by you, by a script, or often by your screen blanker. Garshneblanker, for one, sets the ENV: var named BLANKED whenever the screen blanker is active.")
(prompt "If you plan to be running AmiPhone in conjunction with AmiTCP, the line:\n\nAmiPhone 2956/udp\n\nneeds to be present in your amitcp:db/services file. Do you wish me to append this line to that file?\n\n(Note: this does not check to see if the line is already in the file! If you've installed AmiPhone before, skip this part)")
(help "Including this line in your amitcp:db/services file tells AmiTCP's inet daemon that all requests on port 2956 should be sent to the AmiPhoned program for further processing. If this line is not included, you will not be able to receive AmiPhone requests from other people.")
(dest "t:AmiPhone.AppendMeToServices")
(append "\nAmiPhone 2956/udp\n")
(confirm)
)
(set AddServiceString ("join amitcp:db/services t:AmiPhone.AppendMeToServices as t:AmiPhone.Temp1"))
(prompt "\nAlso, the line:\n\nAmiPhone dgram udp wait root amitcp:serv/AmiPhoned\n\nneeds to be present in your amitcp:db/inetd.conf file. Do you wish me to append this line to that file?\n(Note: this does not check to see if the line is already in the file! If you've installed AmiPhone before, skip this part)")
(help "Including this line in your amitcp:db/inetd.conf file tells AmiTCP what program to run whenever it gets an AmiPhone request. It is important that the file path and name in this line reflect the location of the AmiPhoned executable.")
; make sure HOSTNAME is set; if not, warn the user
(if (not (exists "env:HOSTNAME"))
(
(if (= 1 (askbool
(prompt "\n\nThe ENV variable HOSTNAME does not appear to be set on your system. AmiPhone needs this ENV variable to run correctly. Would you like to set it now?")
(help "If you know the Internet Host name of your Amiga, select 'Enter HOSTNAME Now' and type it in. Your HOSTNAME should be something like mycomputer.mynetwork.mydomain (ex: sdcc8.ucsd.edu) The string you type will be saved to the files env:HOSTNAME and envarc:HOSTNAME.")
(default 1)
(choices "Enter HOSTNAME now" "Skip This Part")
))
(
(set HostName (askstring
(prompt "Please enter your HOSTNAME in the box below. You HOSTNAME should be something like mycomputer.mysystem.mydomain (for example, sdcc8.ucsd.edu)")
(help @askstring-help)
)
)
; just in case, delete so that we can't ever have two lines in var
(delete "env:HOSTNAME")
(delete "envarc:HOSTNAME")
(if (= 0 (strlen HostName))
(message "You entered an empty HOSTNAME string. I'll assume that you wished to skip this part.")
(
(textfile
(dest "ENV:HOSTNAME")
(append HostName)
)
(textfile
(dest "ENVARC:HOSTNAME")
(append HostName)
)
)
)
)
)
)
)
(message "\n\nAmiPhone is now installed.\nRe-start AmiTCP and try it out!")
)
(abort "\n\nAmiTCP does not appear to be set up on your system. (Specifically, the assign AmiTCP: has not been made) Because of this, I am unable to install AmiPhone. Please install AmiTCP and then try again.")
